home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Amiga Games 1996 July
/
Amiga Games 1996 #7.iso
/
leser-forum
/
tobiasfranke
/
lap.bak
/
lap.amosSourceCode
Wrap
AMOS Source Code
|
1978-02-12
|
25KB
|
1,351 lines
Screen Open 0,320,200,16,Lowres : Curs Off
Paper 0
Cls
RISIKO=1
REPERATUREN=1
Load Iff "IFF/F1_1",1
Wait 70
Writing 2
Pen 4
Locate 20,2 : Print "AUSWAHLMEN�"
Locate 14,6 : Print "A = Spiel Start"
Locate 14,7 : Print "B = Anleitung "
Do
X$=Inkey$
If X$="a" Then Goto 100
If X$="b" Then Run "Anleitung.AMOS"
Loop
100
VERM�GEN=1000000
Screen Close 1
Pen 3
Locate 2,15 : Print "Bitte Name eingeben:"
Curs On
Pen 4
Locate 2,16 : Input NAMEA$
Cls
Pen 3
Locate 2,15 : Print "Bitte Team-Name eingeben:"
Pen 4
Input TEAMA$
Cls
110
VERM�GEN=VERM�GEN-AUSGABEN
AUSGABEN=0
If VERM�GEN<0 Then Load Iff "IFF/F1_8" : Wait 400 : End
Load Iff "IFF/F1_2",0
Writing 2
Locate 2,2 : Print " "
Locate 2,2 : Print "Bitte entsprechende Taste dr�cken."
Locate 2,27 : Print " "
Locate 2,27 : Print " Verm�gen: "
Locate 15,27 : Print VERM�GEN
111
Do
X$=Inkey$
If X$="1" Then 400
If X$="2" Then 1100
If X$="3" Then 2100
If X$="4" Then 3100
If X$="5" Then 6000
If X$="6" Then 112
Loop
112 If AUTO=0 Then Goto 111
If FAHRER=0 Then 111
Goto 4000
200
300
400
Rem A u t o s
Rem
Rem
Rem
Load Iff "IFF/F1_3",0
Do
X$=Inkey$
Paper 23
If X$="1" Then If AUTO=1 Then AUT Else Gosub 500
If X$="2" Then If AUTO=2 Then AUT Else Gosub 600
If X$="3" Then If AUTO=3 Then AUT Else Gosub 700
If X$="4" Then If AUTO=4 Then AUT Else Gosub 800
If X$="5" Then If AUTO=5 Then AUT Else Gosub 900
If X$="6" Then If AUTO=6 Then AUT Else Gosub 1000
If X$="7" Then Goto 110
Loop
Procedure AUT
Locate 1,30 : Print " Dieses Auto besitzen Sie bereits!" : Wait 100 : Locate 1,30 : Print " "
End Proc
End
Rem
Rem A u t o s e n d e
Rem
Rem
Rem
Rem
Rem
500
Rem A u t o 1
Paper 8
Pen 3
Wind Open 1,100,50,17,17,16
Border 15,8,3
Print "Wagen Nr.1:"
Print "-----------"
Print ""
Pen 5
Print "Tank "
Pen 0
Print "Schlecht"
Pen 5
Print "Motor"
Pen 0
Print "Langsam"
Pen 5
Print "Aerodynamik"
Pen 0
Print "Schlecht"
Pen 5
Print "Preis:"
Pen 0
Print "300�000"
Print ""
Pen 3
Print "Kaufen? (J/N)"
Do
X$=Inkey$
If X$="j" Then AUTO=1 : AUSGABEN=300000 : Goto 110
If X$="n" Then Goto 510
Loop
510
Wind Close
Load Iff "IFF/F1_3",0
Return
600
Rem A u t o 2
Paper 8
Pen 3
Wind Open 1,100,50,17,17,16
Border 15,8,3
Print "Wagen Nr.2:"
Print "-----------"
Print ""
Pen 5
Print "Tank "
Pen 0
Print "Schlecht"
Pen 5
Print "Motor"
Pen 0
Print "Langsam"
Pen 5
Print "Aerodynamik"
Pen 0
Print "Mittel"
Pen 5
Print "Preis:"
Pen 0
Print "500�000"
Print ""
Pen 3
Print "Kaufen? (J/N)"
Do
X$=Inkey$
If X$="j" Then AUTO=2 : AUSGABEN=500000 : Goto 110
If X$="n" Then Goto 610
Loop
610
Wind Close
Load Iff "IFF/F1_3",0
Return
700
Rem A u t o 3
Paper 8
Pen 3
Wind Open 1,100,50,17,17,16
Border 15,8,3
Print "Wagen Nr.3:"
Print "-----------"
Print ""
Pen 5
Print "Tank "
Pen 0
Print "Mittel"
Pen 5
Print "Motor"
Pen 0
Print "Langsam"
Pen 5
Print "Aerodynamik"
Pen 0
Print "Mittel"
Pen 5
Print "Preis:"
Pen 0
Print "700�000"
Print ""
Pen 3
Print "Kaufen? (J/N)"
Do
X$=Inkey$
If X$="j" Then AUTO=7 : AUSGABEN=700000 : Goto 110
If X$="n" Then Goto 710
Loop
710
Wind Close
Load Iff "IFF/F1_3",0
Return
800
Rem A u t o 4
Paper 8
Pen 3
Wind Open 1,100,50,17,17,16
Border 15,8,3
Print "Wagen Nr.4:"
Print "-----------"
Print ""
Pen 5
Print "Tank "
Pen 0
Print "Mittel"
Pen 5
Print "Motor"
Pen 0
Print "Mittel"
Pen 5
Print "Aerodynamik"
Pen 0
Print "Mittel"
Pen 5
Print "Preis:"
Pen 0
Print "1�000�000"
Print ""
Pen 3
Print "Kaufen? (J/N)"
Do
X$=Inkey$
If X$="j" Then AUTO=4 : AUSGABEN=1000000 : Goto 110
If X$="n" Then Goto 810
Loop
810
Wind Close
Load Iff "IFF/F1_3",0
Return
900
Rem A u t o 5
Paper 8
Pen 3
Wind Open 1,100,50,17,17,16
Border 15,8,3
Print "Wagen Nr.5:"
Print "-----------"
Print ""
Pen 5
Print "Tank "
Pen 0
Print "Mittel"
Pen 5
Print "Motor"
Pen 0
Print "Gut"
Pen 5
Print "Aerodynamik"
Pen 0
Print "Gut"
Pen 5
Print "Preis:"
Pen 0
Print "1�200�000"
Print ""
Pen 3
Print "Kaufen? (J/N)"
Do
X$=Inkey$
If X$="j" Then AUTO=5 : AUSGABEN=1200000 : Goto 110
If X$="n" Then Goto 910
Loop
910
Wind Close
Load Iff "IFF/F1_3",0
Return
1000
Rem A u t o 6
Paper 8
Pen 3
Wind Open 1,100,50,17,17,16
Border 15,8,3
Print "Wagen Nr.6:"
Print "-----------"
Print ""
Pen 5
Print "Tank "
Pen 0
Print "Gut"
Pen 5
Print "Motor"
Pen 0
Print "Gut"
Pen 5
Print "Aerodynamik"
Pen 0
Print "Gut"
Pen 5
Print "Preis:"
Pen 0
Print "1�700�000"
Print ""
Pen 3
Print "Kaufen? (J/N)"
Do
X$=Inkey$
If X$="j" Then AUTO=6 : AUSGABEN=1700000 : Goto 110
If X$="n" Then Goto 1010
Loop
1010
Wind Close
Load Iff "IFF/F1_3",0
Return
1100
Load Iff "IFF/F1_4",0
1110
Locate 6,2 : Print "Bodo Bumm"
Locate 6,10 : Print "Karl Chrash"
Locate 6,19 : Print "Kai Kamikaze"
Locate 26,2 : Print "Pit Pitstop "
Locate 26,10 : Print "Freddi First"
Locate 26,19 : Print "Reni Raser"
Do
X$=Inkey$
If X$="1" Then If FAHRER=1 Then FAHRE Else Gosub 1200 : Goto 1110
If X$="2" Then If FAHRER=2 Then FAHRE Else Gosub 1300 : Goto 1110
If X$="3" Then If FAHRER=3 Then FAHRE Else Gosub 1400 : Goto 1110
If X$="4" Then If FAHRER=4 Then FAHRE Else Gosub 1500 : Goto 1110
If X$="5" Then If FAHRER=5 Then FAHRE Else Gosub 1600 : Goto 1110
If X$="6" Then If FAHRER=6 Then FAHRE Else Gosub 1700 : Goto 1110
If X$="7" Then 110
Loop
Procedure FAHRE
Paper 23
Locate 1,30 : Print "Dieser Fahrer ist bereits bei ihnen! "
Wait 100
Locate 1,30 : Print " "
End Proc
Rem
Rem
Rem F a h r e r a u s w a h l e n d e
Rem
Rem
Rem
Rem
1200
Rem F a h r e r 1
Paper 8
Pen 3
Wind Open 1,80,40,17,20,16
Border 15,8,3
Print "Bodo Bumm"
Print "-----------"
Print ""
Pen 5
Print "Risiko"
Pen 0
Print "Schlecht"
Pen 5
Print "Sicherheit"
Pen 0
Print "Schlecht"
Pen 5
Print "Intilligenz:"
Pen 0
Print "Wenig"
Pen 5
Print "Lohn:"
Pen 0
Print "100�000"
Print ""
Pen 3
Print "Anstellen?"
Print " (J/N)"
Do
X$=Inkey$
If X$="j" Then FAHRER=1 : AUSGABEN=100000 : Goto 110
If X$="n" Then Goto 1210
Loop
1210
Wind Close
Load Iff "IFF/F1_4",0
Return
1300
Rem F a h r e r 2
Paper 8
Pen 3
Wind Open 1,100,50,17,20,16
Border 15,8,3
Print "Karl Chrash"
Print "-----------"
Print ""
Pen 5
Print "Risiko"
Pen 0
Print "Mittel"
Pen 5
Print "Sicherheit"
Pen 0
Print "Schlecht"
Pen 5
Print "Intilligenz"
Pen 0
Print "Wenig"
Pen 5
Print "Lohn:"
Pen 0
Print "150�000"
Print ""
Pen 3
Print "Anstellen?"
Print " (J/N)"
Do
X$=Inkey$
If X$="j" Then FAHRER=2 : AUSGABEN=150000 : Goto 110
If X$="n" Then Goto 1310
Loop
1310
Wind Close
Load Iff "IFF/F1_4",0
Return
1400
Rem F a h r e r 3
Paper 8
Pen 3
Wind Open 1,100,50,17,20,16
Border 15,8,3
Print "Kai Kamikaze"
Print "----------- "
Print ""
Pen 5
Print "Risiko"
Pen 0
Print "Mittel"
Pen 5
Print "Sicherheit"
Pen 0
Print "Mittel"
Pen 5
Print "Intilligenz"
Pen 0
Print "Mittel"
Pen 5
Print "Lohn:"
Pen 0
Print "200�000"
Print ""
Pen 3
Print "Anstellen?"
Print " (J/N)"
Do
X$=Inkey$
If X$="j" Then FAHRER=3 : AUSGABEN=200000 : Goto 110
If X$="n" Then Goto 1410
Loop
1410
Wind Close
Load Iff "IFF/F1_4",0
Return
1500
Rem F a h r e r 4
Paper 8
Pen 3
Wind Open 1,100,50,17,20,16
Border 15,8,3
Print "Pit Pitstop"
Print "-----------"
Print ""
Pen 5
Print "Risiko"
Pen 0
Print "Mittel"
Pen 5
Print "Sicherheit"
Pen 0
Print "Mittel"
Pen 5
Print "Intilligenz"
Pen 0
Print "Gut"
Pen 5
Print "Lohn:"
Pen 0
Print "250�000"
Print ""
Pen 3
Print "Anstellen?"
Print " (J/N)"
Do
X$=Inkey$
If X$="j" Then FAHRER=4 : AUSGABEN=250000 : Goto 110
If X$="n" Then Goto 1510
Loop
1510
Wind Close
Load Iff "IFF/F1_4",0
Return
1600
Rem F a h r e r 5
Paper 8
Pen 3
Wind Open 1,100,50,17,20,16
Border 15,8,3
Print "Freddi First"
Print "-----------"
Print ""
Pen 5
Print "Risiko"
Pen 0
Print "Mittel"
Pen 5
Print "Sicherheit"
Pen 0
Print "Gut"
Pen 5
Print "Intilligenz"
Pen 0
Print "Gut"
Pen 5
Print "Lohn:"
Pen 0
Print "300�000"
Print ""
Pen 3
Print "Anstellen?"
Print " (J/N)"
Do
X$=Inkey$
If X$="j" Then FAHRER=5 : AUSGABEN=300000 : Goto 110
If X$="n" Then Goto 1610
Loop
1610
Wind Close
Load Iff "IFF/F1_4",0
Return
1700
Rem F a h r e r 6
Paper 8
Pen 3
Wind Open 1,100,50,17,20,16
Border 15,8,3
Print "Reni Raser"
Print "-----------"
Print ""
Pen 5
Print "Risiko"
Pen 0
Print "Gut"
Pen 5
Print "Sicherheit"
Pen 0
Print "Gut"
Pen 5
Print "Intilligenz"
Pen 0
Print "Gut"
Pen 5
Print "Lohn:"
Pen 0
Print "350�000"
Print ""
Pen 3
Print "Anstellen?"
Print " (J/N)"
Do
X$=Inkey$
If X$="j" Then FAHRER=6 : AUSGABEN=350000 : Goto 110
If X$="n" Then Goto 1710
Loop
1710
Wind Close
Load Iff "IFF/F1_4",0
Return
2100
Rem
Rem
Rem
Rem
Rem
Rem T E A M S
Rem
Rem
Rem
Rem
Load Iff "IFF/F1_4",0
2110
Locate 6,2 : Print "Team A"
Locate 6,10 : Print "Team B"
Locate 6,19 : Print "Team C"
Locate 26,2 : Print "Team D"
Locate 26,10 : Print "Team E"
Locate 26,19 : Print "Team F"
Do
X$=Inkey$
If X$="1" Then If TEAM=1 Then TEA Else Gosub 2300 : Goto 2110
If X$="2" Then If TEAM=2 Then TEA Else Gosub 2400 : Goto 2110
If X$="3" Then If TEAM=3 Then TEA Else Gosub 2500 : Goto 2110
If X$="4" Then If TEAM=4 Then TEA Else Gosub 2600 : Goto 2110
If X$="5" Then If TEAM=5 Then TEA Else Gosub 2700 : Goto 2110
If X$="6" Then If TEAM=6 Then TEA Else Gosub 2800 : Goto 2110
If X$="7" Then 110
Loop
Procedure TEA
Paper 23
Locate 1,30 : Print "Dieses Team ist bereits bei ihnen!"
Wait 100
Locate 1,30 : Print " "
End Proc
Rem
Rem
Rem F a h r e r a u s w a h l e n d e
Rem
Rem
Rem
Rem
Rem
Rem
Rem T E A M S
Rem
Rem
Rem
Rem
2300
Paper 8
Pen 3
Wind Open 1,100,50,17,20,16
Border 15,8,3
Print "Team A"
Print "-----------"
Print ""
Pen 5
Print "Pitstops"
Pen 0
Print "Langsam"
Pen 5
Print "Reperatur"
Pen 0
Print "Schlampig"
Pen 5
Print "Erfahrung"
Pen 0
Print "Wenig"
Pen 5
Print "Lohn:"
Pen 0
Print "400�000"
Print ""
Pen 3
Print "Anstellen?"
Print " (J/N)"
Do
X$=Inkey$
If X$="j" Then TEAM=1 : AUSGABEN=400000 : Goto 110
If X$="n" Then Goto 2310
Loop
2310
Wind Close
Load Iff "IFF/F1_4",0
Return
2400
Paper 8
Pen 3
Wind Open 1,100,50,17,20,16
Border 15,8,3
Print "Team B"
Print "-----------"
Print ""
Pen 5
Print "Pitstops"
Pen 0
Print "Langsam"
Pen 5
Print "Reperatur"
Pen 0
Print "Schlampig"
Pen 5
Print "Erfahrung"
Pen 0
Print "Mittel"
Pen 5
Print "Lohn:"
Pen 0
Print "500�000"
Print ""
Pen 3
Print "Anstellen?"
Print " (J/N)"
Do
X$=Inkey$
If X$="j" Then TEAM=2 : AUSGABEN=500000 : Goto 110
If X$="n" Then Goto 2410
Loop
2410
Wind Close
Load Iff "IFF/F1_4",0
Return
2500
Paper 8
Pen 3
Wind Open 1,100,50,17,20,16
Border 15,8,3
Print "Team C"
Print "-----------"
Print ""
Pen 5
Print "Pitstops"
Pen 0
Print "Langsam"
Pen 5
Print "Reperatur"
Pen 0
Print "Geht so"
Pen 5
Print "Erfahrung"
Pen 0
Print "Mittel"
Pen 5
Print "Lohn:"
Pen 0
Print "600�000"
Print ""
Pen 3
Print "Anstellen?"
Print " (J/N)"
Do
X$=Inkey$
If X$="j" Then TEAM=3 : AUSGABEN=600000 : Goto 110
If X$="n" Then Goto 2510
Loop
2510
Wind Close
Load Iff "IFF/F1_4",0
Return
2600
Paper 8
Pen 3
Wind Open 1,100,50,17,20,16
Border 15,8,3
Print "Team D"
Print "-----------"
Print ""
Pen 5
Print "Pitstops"
Pen 0
Print "Mittel"
Pen 5
Print "Reperatur"
Pen 0
Print "Geht so"
Pen 5
Print "Erfahrung"
Pen 0
Print "Viel"
Pen 5
Print "Lohn:"
Pen 0
Print "700�000"
Print ""
Pen 3
Print "Anstellen?"
Print " (J/N)"
Do
X$=Inkey$
If X$="j" Then TEAM=4 : AUSGABEN=700000 : Goto 110
If X$="n" Then Goto 2610
Loop
2610
Wind Close
Load Iff "IFF/F1_4",0
Return
2700
Paper 8
Pen 3
Wind Open 1,100,50,17,20,16
Border 15,8,3
Print "Team E"
Print "-----------"
Print ""
Pen 5
Print "Pitstops"
Pen 0
Print "Mittel"
Pen 5
Print "Reperatur"
Pen 0
Print "Super"
Pen 5
Print "Erfahrung"
Pen 0
Print "Viel"
Pen 5
Print "Lohn:"
Pen 0
Print "800�000"
Print ""
Pen 3
Print "Anstellen?"
Print " (J/N)"
Do
X$=Inkey$
If X$="j" Then TEAM=5 : AUSGABEN=800000 : Goto 110
If X$="n" Then Goto 2710
Loop
2710
Wind Close
Load Iff "IFF/F1_4",0
Return
2800
Paper 8
Pen 3
Wind Open 1,100,50,17,20,16
Border 15,8,3
Print "Team F"
Print "-----------"
Print ""
Pen 5
Print "Pitstops"
Pen 0
Print "Schnell"
Pen 5
Print "Reperatur"
Pen 0
Print "Super"
Pen 5
Print "Erfahrung"
Pen 0
Print "Viel"
Pen 5
Print "Lohn:"
Pen 0
Print "900�000"
Print ""
Pen 3
Print "Anstellen?"
Print " (J/N)"
Do
X$=Inkey$
If X$="j" Then TEAM=6 : AUSGABEN=900000 : Goto 110
If X$="n" Then Goto 2810
Loop
2810
Wind Close
Load Iff "IFF/F1_4",0
Return
3100
Load Iff "IFF/F1_4",0
3110
Locate 6,2 : Print "Set A"
Locate 6,10 : Print "Set B"
Locate 6,19 : Print "Set C"
Locate 26,2 : Print "Set D "
Locate 26,10 : Print "Set E"
Locate 26,19 : Print "Set F"
Do
X$=Inkey$
If X$="1" Then If VERB=1 Then SET Else Gosub 3300 : Goto 3110
If X$="2" Then If VERB=2 Then SET Else Gosub 3400 : Goto 3110
If X$="3" Then If VERB=3 Then SET Else Gosub 3500 : Goto 3110
If X$="4" Then If VERB=4 Then SET Else Gosub 3600 : Goto 3110
If X$="5" Then If VERB=5 Then SET Else Gosub 3700 : Goto 3110
If X$="6" Then If VERB=6 Then SET Else Gosub 3800 : Goto 3110
If X$="7" Then 110
Loop
Procedure SET
Paper 23
Locate 1,30 : Print "Dieses Set geh�rt bereits ihnen!"
Wait 100
Locate 1,30 : Print " "
End Proc
3300
Paper 8
Pen 3
Wind Open 1,100,50,17,20,16
Border 15,8,3
Print "Verbesserungs"
Print " Set A "
Print "-------------"
Print ""
Pen 5
Print "Bestehend"
Print "aus:"
Pen 0
Print "Bessere "
Print "Karosserie"
Print ""
Pen 0
Print ""
Pen 5
Print ""
Pen 0
Print ""
Pen 5
Print "Kosten:"
Pen 0
Print "100000"
Print ""
Pen 3
Print " Kaufen?"
Print " (J/N)"
Do
X$=Inkey$
If X$="j" Then VERB=1 : AUSGABEN=100000 : Goto 110
If X$="n" Then Goto 3310
Loop
3310
Wind Close
Load Iff "IFF/F1_4",0
Return
3400
Paper 8
Pen 3
Wind Open 1,100,50,17,20,16
Border 15,8,3
Print "Verbesserungs"
Print " Set B "
Print "-------------"
Print ""
Pen 5
Print "Bestehend"
Print "aus:"
Pen 0
Print "Bessere "
Print "Karosserie,"
Print "Neuartige"
Print "Reifen"
Pen 5
Print ""
Pen 0
Print ""
Pen 5
Print "Kosten:"
Pen 0
Print "200000"
Print ""
Pen 3
Print " Kaufen?"
Print " (J/N)"
Do
X$=Inkey$
If X$="j" Then VERB=2 : AUSGABEN=200000 : Goto 110
If X$="n" Then Goto 3310
Loop
3500
Paper 8
Pen 3
Wind Open 1,100,50,17,20,16
Border 15,8,3
Print "Verbesserungs"
Print " Set C "
Print "-------------"
Print ""
Pen 5
Print "Bestehend"
Print "aus:"
Pen 0
Print "Bessere "
Print "Karosserie,"
Print "Neuartige"
Print "Reifen,"
Print "Neue"
Print "Elektronik"
Pen 5
Print "Kosten:"
Pen 0
Print "300000"
Print ""
Pen 3
Print " Kaufen?"
Print " (J/N)"
Do
X$=Inkey$
If X$="j" Then VERB=3 : AUSGABEN=300000 : Goto 110
If X$="n" Then Goto 3510
Loop
3510
Wind Close
Load Iff "IFF/F1_4",0
Return
3600
Paper 8
Pen 3
Wind Open 1,100,50,17,20,16
Border 15,8,3
Print " Set D "
Print "-------------"
Pen 5
Print "Bestehend aus:"
Pen 0
Print "Bessere "
Print "Karosserie,"
Print "Neuartige"
Print "Reifen,"
Print "Neue"
Print "Elektronik,"
Print "Neuer"
Print "Spoiler"
Pen 5
Print "Kosten:"
Pen 0
Print "400000"
Print ""
Pen 3
Print " Kaufen?"
Print " (J/N)"
Do
X$=Inkey$
If X$="j" Then VERB=4 : AUSGABEN=400000 : Goto 110
If X$="n" Then Goto 3610
Loop
3610
Wind Close
Load Iff "IFF/F1_4",0
Return
3700
Paper 8
Pen 3
Wind Open 1,100,50,17,20,16
Border 15,8,3
Print " Set E "
Print "-------------"
Pen 5
Print "Bestehend aus:"
Pen 0
Print "Bessere "
Print "Karosserie,"
Print "Reifen,"
Print "Elektronik,"
Print "Neuer"
Print "Spoiler"
Print "Verbessertes"
Print "Getriebe"
Pen 5
Print "Kosten:"
Pen 0
Print "500000"
Print ""
Pen 3
Print " Kaufen?"
Print " (J/N)"
Do
X$=Inkey$
If X$="j" Then VERB=5 : AUSGABEN=500000 : Goto 110
If X$="n" Then Goto 3710
Loop
3710
Wind Close
Load Iff "IFF/F1_4",0
Return
3800
Paper 8
Pen 3
Wind Open 1,100,50,17,20,16
Border 15,8,3
Print " Set F "
Print "-------------"
Pen 5
Print "Bestehend aus:"
Pen 0
Print "Bessere: "
Print "Karosserie,"
Print "Reifen,"
Print "Elektronik,"
Print "Spoiler,"
Print "Getriebe,"
Print "und neuer"
Print "Motor"
Pen 5
Print "Kosten:"
Pen 0
Print "600000"
Print ""
Pen 3
Print " Kaufen?"
Print " (J/N)"
Do
X$=Inkey$
If X$="j" Then VERB=6 : AUSGABEN=600000 : Goto 110
If X$="n" Then Goto 3810
Loop
3810
Wind Close
Load Iff "IFF/F1_4",0
Return
4000
V=Rnd(3)
If V=2 Then Goto 5000
If V=0 Then Goto 5000
A=Rnd(10)
If A=1 Then 4100
If A=2 Then 4200
If A=3 Then 4300
If A=4 Then 4400
If A=5 Then 4500
If A=6 Then 4600
If A=7 Then 4700
If A=8 Then 4800
If A=9 Then 4900
If A=10 Then 4950
Goto 5000
4100
Load Iff "IFF/F1_6"
Writing 0
Paper 0
Locate 2,7 : Print "Gratulation, du wurdest von "
Locate 2,8 : Print "einem neuen Sponsor unter "
Locate 2,9 : Print "Vertrag genommen. "
Locate 2,10 : Print "Du bekommst daf�r 100.000 DM! "
Wait Key
VERM�GEN=VERM�GEN+100000
Goto 5000
4200
Load Iff "IFF/F1_6"
Writing 0
Paper 0
Locate 2,7 : Print "Gratulation, du machst bei einem "
Locate 2,8 : Print "Fehrnsehinterview mit, und bekommst "
Locate 2,9 : Print "daf�r 5.000 DM "
Wait Key
VERM�GEN=VERM�GEN+5000
Goto 5000
4300
Load Iff "IFF/F1_6"
Writing 0
Paper 0
Locate 2,7 : Print "Benzinpreiserh�hung! Du machst"
Locate 2,8 : Print "Einbussen von 5000 DM "
Wait Key
VERM�GEN=VERM�GEN-5000
Goto 5000
4400
Load Iff "IFF/F1_6"
Writing 0
Paper 0
Locate 2,7 : Print "Reifenpreise steigen! Du machst"
Locate 2,8 : Print "einbu�en von 5000 DM "
VERM�GEN=VERM�GEN-5000
Wait Key
Goto 5000
4500
Load Iff "IFF/F1_6"
Writing 0
Paper 0
Locate 2,7 : Print "Du verlierst einen Sponsor! "
Locate 2,8 : Print "Das bedeutet f�r dich einbu�en"
Locate 2,9 : Print "von 100.000 DM! "
VERM�GEN=VERM�GEN-100000
Wait Key
Goto 5000
4600
Load Iff "IFF/F1_6"
Writing 0
Paper 0
Locate 2,7 : Print "Einer deiner Mechaniker hat "
Locate 2,8 : Print "einen brandneuen, und Superschnellen "
Locate 2,9 : Print "Motor erfunden! Da du den alten Motor "
Locate 2,10 : Print "jetzt verkaufen kannst bekommst du "
Locate 2,11 : Print "150.000 DM daf�r! "
VERB=VERB+2
VERM�GEN=VERM�GEN+150000
Wait Key
Goto 5000
4700
Load Iff "IFF/F1_6"
Writing 0
Paper 0
Locate 2,7 : Print "Du hast bei einer Wette mitgemacht,"
Locate 2,8 : Print "und hast 50.000 DM gewonnen!"
Locate 2,9 : Print "Gratulation!"
VERM�GEN=VERM�GEN+50000
Wait Key
Goto 5000
4800
Load Iff "IFF/F1_6"
Writing 0
Paper 0
Locate 2,7 : Print "Eine Software Firma m�chte �ber"
Print " �ber deinen Rennstall ein Spiel"
Print " produzieren. Du bekommst"
Print " 100.000 f�r das Copyright."
Wait Key
VERM�GEN=VERM�GEN+100000
Goto 5000
4900
Load Iff "IFF/F1_6"
Writing 0
Paper 0
Locate 2,7 : Print "Einer deiner Mechaniker erfindet"
Print " einen neuen Kraftstoff, der"
Print " billiger und besser ist als dein"
Print " Alter.Das bedeuted f�r dich Ein-"
Print " sparungen von 100.000 DM"
VERM�GEN=VERM�GEN+100000
Wait Key
Goto 5000
4950
Load Iff "IFF/F1_6"
Writing 0
Paper 0
Locate 2,7 : Print "�ber deinen Rennstall soll eine"
Print " Dokumentation gedreht werden."
Print " Du bekommst daf�r 150.000 DM!"
Print " Gratulation!"
Wait Key
VERM�GEN=VERM�GEN+150000
5000
Load Iff "IFF/F1_5"
ZIEL=AUTO+FAHRER+TEAM+VERB : If ZIEL=24 Then Run "END.AMOS"
RENNEN=RENNEN+1
If RENNEN=17 Then RENNEN=1 : JAHR=JAHR+1
ZUS=RISIKO+REPERATUREN
If ZUS<3 Then Goto 5005
If ZUS=3 Then ZUSA=1 : RISK=1
If ZUS=4 Then ZUSA=1.5 : RISK=1.5
If ZUS=5 or 6 Then ZUSA=4 : RISK=4
If ZUS=7 or 8 Then ZUSA=5 : RISK=5
R=Rnd(3)
RISI=RISK*R
If RISI>8 Then A=Rnd(3) : If A=3 Then Goto 5200
If A=2 or 1 Then Goto 5250
5005
GESAMT=FAHRER+AUTO+TEAM+VERB+ZUSA
5010
V=Rnd(4)
If V=0 Then Goto 5010
E=GESAMT*V
If E>21 Then P=1 : VERM�GEN=VERM�GEN+15000 : Goto 5100
If E>17 Then P=2 : VERM�GEN=VERM�GEN+10000 : Goto 5100
If E>13 Then P=3 : VERM�GEN=VERM�GEN+5000 : Goto 5100
If E>9 Then P=4 : VERM�GEN=VERM�GEN+2000 : Goto 5100
P=5
VERM�GEN=VERM�GEN-10000
5100
Writing 0
Paper 0
Locate 15,7 : Print "Guten Abend, ich"
Locate 15,8 : Print "begr��e Sie bei "
Locate 15,9 : Print "der Sportschau. "
Locate 15,10 : Print "Soeben ist das "
Locate 15,11 : Print RENNEN;" Rennen in di-"
Locate 15,12 : Print "sem Jahr zuende "
Locate 15,13 : Print "gegangen. Hier "
Locate 15,14 : Print "sind die Er- "
Locate 15,15 : Print "gebnisse: "
Locate 15,16 : Print " "
Locate 15,16 : Print TEAMA$
Locate 15,17 : Print "Belegte den "
Wait Key
Locate 15,7 : Print " " : Locate 15,8 : Print " " : Locate 15,9 : Print " " : Locate 15,10 : Print " " : Locate 15,11 : Print " "
Locate 15,12 : Print " " : Locate 15,13 : Print " " : Locate 15,14 : Print " " : Locate 15,15 : Print " " : Locate 15,16 : Print " " : Locate 16,17 : Print " "
Locate 15,7 : Print P;". Platz." : Locate 15,8 : Print " Damit hat " : Locate 15,9 : Print " ";NAMEA$;" ein" : Locate 15,10 : Print " Verm�gen von " : Locate 15,11 : Print VERM�GEN;" DM." : Locate 15,17 : Print " "
Wait Key : Goto 110
5200
Paper 0
Writing 0
Locate 15,7 : Print "Guten Abend, ich"
Locate 15,8 : Print "begr��e Sie bei"
Locate 15,9 : Print "der Sportschau."
Locate 15,10 : Print "Soeben ist das"
Locate 15,11 : Print RENNEN;" Rennen in "
Locate 15,12 : Print "diesem Jahr"
Locate 15,13 : Print "zuende gegangen."
Locate 15,14 : Print TEAMA$
Locate 15,15 : Print "schied leider aus."
Locate 15,16 : Print "Das Auto wurde bei"
Locate 15,17 : Print "bei einem Crash"
Locate 15,18 : Print "zerst�rt."
AUTO=0
Wait Key
Goto 110
5250
Paper 0
Writing 0
Locate 15,7 : Print "Guten Abend, ich"
Locate 15,8 : Print "begr��e Sie bei"
Locate 15,9 : Print "der Sportschau."
Locate 15,10 : Print "Soeben ist das"
Locate 15,11 : Print RENNEN;" Rennen in"
Locate 15,12 : Print "diesem Jahr"
Locate 15,13 : Print "zuende gegangen."
Locate 15,14 : Print TEAMA$;""
Locate 15,15 : Print "schied leider"
Locate 15,16 : Print "wegen einem Crash"
Locate 15,17 : Print "aus. Die "
Locate 15,18 : Print "Reperaturkosten"
VERM�GEN=VERM�GEN-50000
Wait Key
Locate 15,7 : Print "des Autos "
Locate 15,8 : Print "betragen "
Locate 15,9 : Print "50.000 DM "
Locate 15,10 : Print " "
Locate 15,11 : Print " "
Locate 15,12 : Print " "
Locate 15,13 : Print " "
Locate 15,14 : Print " "
Locate 15,15 : Print " "
Locate 15,16 : Print " "
Locate 15,17 : Print " "
Locate 15,18 : Print " "
Wait Key
Goto 110
6000
Load Iff "IFF/F1_7"
Writing 1
Paper 0
Locate 5,10 : Print "Mit wem m�chten Sie verhandeln? " : Locate 5,11 : Print "----------------------------------" : Pen 1
Locate 5,15 : Print " A = Fahrer "
Locate 5,17 : Print " B = Mechanikerteam "
Locate 5,19 : Print " C = Abbruch " : Pen 4
Locate 5,22 : Print "--------------------------------- " : Locate 5,23 : Print "Bitte entsprechende Taste dr�cken." : Locate 5,24 : Print "----------------------------------"
Do
A$=Inkey$
If A$="a" Then Goto 6100
If A$="b" Then Goto 6200
If A$="c" Then Goto 110
Loop
6100
Load Iff "IFF/F1_7"
Writing 0
6110
If RISIKO=1 Then Pen 1 : Locate 5,15 : Print " * * *" : Pen 4 : Locate 5,15 : Print "*"
If RISIKO=2 Then Pen 1 : Locate 5,15 : Print " * *" : Pen 4 : Locate 5,15 : Print "* *"
If RISIKO=3 Then Pen 1 : Locate 5,15 : Print " *" : Pen 4 : Locate 5,15 : Print "* * *"
If RISIKO=4 Then Pen 4 : Locate 5,15 : Print "* * * *"
Pen 1
Locate 5,17 : Print "Risikobetrag: ";RISIKO : Locate 5,10 : Print "Bitte Risikobetrag der" : Locate 5,11 : Print "Fahrman�ver bestimmen." : Locate 5,20 : Print "Bitte nur 1-4 eingeben." : Locate 5,21 : Print "Bitte a f�r OK eingeben."
Do
Locate 5,22 : Input A$
Locate 5,22 : Print " "
If A$="1" Then RISIKO=1 : Goto 6110
If A$="2" Then RISIKO=2 : Goto 6110
If A$="3" Then RISIKO=3 : Goto 6110
If A$="4" Then RISIKO=4 : Goto 6110
If A$="a" Then Goto 6000
Loop
6200
Load Iff "IFF/F1_7"
6210
Writing 0
If REPERATUREN=1 Then Pen 1 : Locate 5,15 : Print " * * *" : Pen 4 : Locate 5,15 : Print "*"
If REPERATUREN=2 Then Pen 1 : Locate 5,15 : Print " * *" : Pen 4 : Locate 5,15 : Print "* *"
If REPERATUREN=3 Then Pen 1 : Locate 5,15 : Print " *" : Pen 4 : Locate 5,15 : Print "* * *"
If REPERATUREN=4 Then Pen 4 : Locate 5,15 : Print "* * * *"
Pen 1
Locate 5,17 : Print "Risikobetrag: ";REPERATUREN
Locate 5,10 : Print "Bitte Risikobetrag der"
Locate 5,11 : Print "Reperaturen eingeben"
Locate 5,20 : Print "Bitte nur 1-4 eingeben."
Locate 5,20 : Print "Bitte a f�r OK eingeben."
Do
Locate 5,21 : Input A$
Locate 5,21 : Print " "
If A$="1" Then REPERATUREN=1 : Goto 6210
If A$="2" Then REPERATUREN=2 : Goto 6210
If A$="3" Then REPERATUREN=3 : Goto 6210
If A$="4" Then REPERATUREN=4 : Goto 6210
If A$="a" Then Goto 6000
Loop